home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 March / 1985-03.d64 / baker's dozen 4 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  53 lines
  1. 10 printchr$(147)chr$(28):poke53280,1:poke53281,1
  2. 20 forl=54272to54295:pokel,0:next:poke54296,15
  3. 25 poke54277,190:poke54278,255:poke54282,190
  4. 30 poke54285,255:poke54276,65:poke54283,65:poke54275,8:poke54282,8
  5. 40 f=1:g=1.5:l=10:h=10:i=h*g:z=54272:y=54273:zz=54279:yy=54280:v=1398:c=54272
  6. 50 forq=1to9:print:next:printtab(9)"please turn up volume"
  7. 55 print:printtab(5)"hit run/stop-restore to stop"
  8. 60 fort=1to2000:next:printchr$(147)
  9. 100 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  10. 105 forn=1toa:pokev,67:pokev+c,b
  11. 108 v=v+1:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h+f:i=i+f:next
  12. 110 ifh>243thenh=10:i=h*g
  13. 120 pokev,73:pokev+c,b:v=v+40:x=int(2*rnd(1))+1:onxgoto700,800
  14. 200 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  15. 205 forn=1toa:pokev,67:pokev+c,b
  16. 208 v=v+1:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h+f:i=i+f:next
  17. 210 ifh>243thenh=10:i=h*g
  18. 220 pokev,75:pokev+c,b:v=v-40:x=int(2*rnd(1))+1:onxgoto500,600
  19. 300 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  20. 305 forn=1toa:pokev,67:pokev+c,b
  21. 308 v=v-1:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h-f:i=i-f:next
  22. 310 ifh<12thenh=10:i=h*g
  23. 320 pokev,85:pokev+c,b:v=v+40:x=int(2*rnd(1))+1:onxgoto700,800
  24. 400 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  25. 405 forn=1toa:pokev,67:pokev+c,b
  26. 408 v=v-1:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h-f:i=i-f:next
  27. 410 ifh<12thenh=10:i=h*g
  28. 420 pokev,74:pokev+c,b:v=v-40:x=int(2*rnd(1))+1:onxgoto500,600
  29. 500 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  30. 505 forn=1toa:pokev,66:pokev+c,b
  31. 508 v=v-40:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h+f:i=i+f:next
  32. 510 ifh>243thenh=10:i=h*g
  33. 515 pokev,73:pokev+c,b:v=v-1:ifv<1384then300
  34. 520 x=int(2*rnd(1))+1:onxgoto300,400
  35. 600 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  36. 605 forn=1toa:pokev,66:pokev+c,b
  37. 608 v=v-40:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h+f:i=i+f:next
  38. 610 ifh>243thenh=10:i=h*g
  39. 615 pokev,85:pokev+c,b:v=v+1:ifv<1384then100
  40. 620 x=int(2*rnd(1))+1:onxgoto100,200
  41. 700 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  42. 705 forn=1toa:pokev,66:pokev+c,b
  43. 708 v=v+40:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h-f:i=i-f:next
  44. 710 ifh<12thenh=10:i=h*g
  45. 715 pokev,75:pokev+c,b:v=v-1:ifv>1683then400
  46. 720 x=int(2*rnd(1))+1:onxgoto300,400
  47. 800 a=int(5*rnd(1)):b=int(13*rnd(1))+2
  48. 805 forn=1toa:pokev,66:pokev+c,b
  49. 808 v=v+40:pokey,h:pokez,l:pokeyy,i:pokezz,l:h=h-f:i=i-f:next
  50. 810 ifh<12thenh=10:i=h*g
  51. 815 pokev,74:pokev+c,b:v=v+1:ifv>1683then200
  52. 820 x=int(2*rnd(1))+1:onxgoto100,200
  53.